home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / FORMTOOL.DEF < prev    next >
Encoding:
Modula Definition  |  1993-03-01  |  885 b   |  42 lines
  1. DEFINITION MODULE FormTool;
  2.  
  3. (*
  4. Form Tools.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM AES    IMPORT ObjectIndex,TreePtr,TreeIndex;
  12. FROM RcMgr  IMPORT GRect;
  13. FROM PORTAB IMPORT SIGNEDWORD,UNSIGNEDWORD;
  14.  
  15. IMPORT FormMgr;
  16.  
  17. PROCEDURE DoAlert(DefBut : UNSIGNEDWORD;
  18.                   AlertNo: TreeIndex): UNSIGNEDWORD;
  19.  
  20. PROCEDURE Alert(AlertNo: TreeIndex);
  21.  
  22. PROCEDURE OK(AlertNo: TreeIndex): BOOLEAN;
  23.  
  24.  
  25. TYPE FormDials = FormMgr.FormDials;
  26.  
  27. PROCEDURE FormDial(    Dial: FormDials;
  28.                    VAR From: GRect;
  29.                    VAR To  : GRect);
  30.  
  31. PROCEDURE FormCenter(    Tree: TreePtr;
  32.                      VAR Rect: GRect);
  33.  
  34. PROCEDURE FormDo(Tree   : TreePtr;
  35.                  StartOb: ObjectIndex): SIGNEDWORD;
  36.  
  37. PROCEDURE Mask(RetOb: SIGNEDWORD): ObjectIndex;
  38.  
  39. PROCEDURE DoubleClicked(VAR RetOb: SIGNEDWORD): BOOLEAN;
  40.  
  41. END FormTool.
  42.